home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 2 of 2).iso / cheats / eq_new / def / magic.bak < prev    next >
Text File  |  1995-03-11  |  3KB  |  152 lines

  1. // This file is (C) 1994 - GLENN HANCOCK
  2.  
  3. DEFTITLE("Master of Magic");
  4. DIR("C:\mps\magic");
  5. PROGRAM("MAGIC");
  6. REGISTEREDONLY;
  7. UNIQUE("INSTALL.EXE;INSTALL.GIF;MPSCOPY.EXE;CONFIG.MOM;BOOK.LBX");
  8. DISKSOURCE;
  9. CDSOURCE;
  10. GLENN;
  11. SOURCEVERSION('100');
  12. BACKGROUND("ABST2.BGP");
  13.  
  14.   STRING FN;
  15.   INT D,N,R;
  16.  
  17. (*----------------------------------------------------------------*)
  18.  
  19. PROC Money;
  20.  
  21.   FN := $(R);
  22.  
  23.    FREEFIELD("How Much Gold Would You Like?");
  24.     Name(FN,3390,T_WORD);
  25.     RANGE(0,32767);
  26.     INC(100);
  27.    ENDFREEFIELD;
  28.  
  29.  
  30. ENDPROC; // Money
  31.  
  32. (*----------------------------------------------------------------*)
  33.  
  34. PROC Mana;
  35.  
  36.   FN := $(R);
  37.  
  38.    FREEFIELD("How Much Mana Would You Like?");
  39.     Name(FN,3140,T_WORD);
  40.     RANGE(0,32767);
  41.     INC(100);
  42.    ENDFREEFIELD;
  43.  
  44.  
  45. ENDPROC; // Mana
  46.  
  47. (*----------------------------------------------------------------*)
  48.  
  49. PAGE(1);
  50.  
  51.   D := 0;
  52.   N := GetFileList($(100),"*.gam");
  53.   R := 100;
  54.  
  55.   FIELDSTART(100);
  56.  
  57.   IF (N>0)
  58.     List('Choose A SaveGame to Edit:');
  59.       VAR(R);
  60.       while D<N
  61.         D:=D+1;
  62.         Assign(99+D,$(99+D));
  63.       endwhile;
  64.     EndList;
  65.   ENDIF;
  66.  
  67.   IF (N=0)
  68.     MESSAGE('There are no SaveGames in your Master of Magic',
  69.             'Directory.  Please Play MOM and Save',
  70.             'Your Game in the Magic Directory.',
  71.             'Then Return And Use The Equalizer.');
  72.     Quit;
  73.   ENDIF;
  74.  
  75.   BUTTON("Edit Money"," ",Money);
  76.   BUTTON("Edit Mana"," ",Mana);
  77.  
  78.  
  79. ENDPAGE;  // 1
  80.  
  81. {
  82.  
  83. PAGE(2);
  84.  
  85.   STRING CityName;
  86.   INT D,B,S,T,A;
  87.  
  88.   D:=27;
  89.   IF (READNUM(37666,T_BYTE))=99 THEN D:=19;
  90.   IF (READNUM(36640,T_BYTE))=99 THEN D:=9;
  91.   B:=0;
  92.   S:=35386;
  93.   While B<D
  94.    S:=(S+114);
  95.    $(101+B) := ReadStr(S,T_C);
  96.    B:=(B+1);
  97.   EndWhile;
  98.  
  99.   T:=0;
  100.   A:=0;
  101.   FREELIST( 'Select a Town to Edit:');
  102.    VAR(T);
  103.    While A<D
  104.     Assign(A,$(101+A));
  105.     A := (A+1);
  106.    EndWhile;
  107.   ENDFREELIST;
  108.   CityName := READSTR(35500+(T*114),T_C);
  109.   SETTITLE( 'Editing City: '+CityName+''));
  110.  
  111.   A:=0;
  112.   FIELD( "Population");
  113.    NAME(FN,(35500+(T*114)+20),T_BYTE);
  114.    RANGE(0,255);
  115.   ENDFIELD;
  116.  
  117. EndPage;  // 2
  118.  
  119.  
  120. }
  121.  
  122.  
  123.  
  124.  
  125. ABOUT
  126. ^4^*^UMaster of Magic^U
  127.  
  128. This role playing/strategy game is a cross
  129. between Civilization and a magical strategy
  130. game. In it you explore the countryside and
  131. build up your empire, then learn magic to
  132. defend it from your enemies.
  133.  
  134. Features of this DEFinition include:
  135.  
  136. -Raising your money to over 32,000.
  137. -Raising your mana to over 32,000.
  138.  
  139. ^4Copyright Simtek Software,1994
  140. ^4All rights reserved
  141. ^U
  142.  
  143.                ^P"YSSgh.PCC"
  144. ENDABOUT;
  145.  
  146.  
  147. DIALOG("HLP");
  148.  
  149. ENDDIALOG;
  150.  
  151.  
  152.